<%
'connection
Dim shop_STRING
shop_STRING = "Provider=Microsoft.jet.OLEDB.4.0;Data Source="&Server.MapPath("data/shop.mdb")
%>
